home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / DirScanner.lha / DirScanner / Rexx / HowMany.dsrx < prev    next >
Encoding:
Text File  |  2000-03-31  |  255 b   |  17 lines
  1. /*
  2.    $VER: HowMany.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.
  3. */
  4.  
  5. options results
  6.  
  7. PARSE ARG DSPort
  8. IF DSPort = "" THEN DSPort = DIRSCANNER.1
  9. address value DSPort
  10.  
  11. GET MATCH_AMM
  12. amount = result
  13.  
  14. text = "Found" amount "matches."
  15.  
  16. REQUESTER '"'||text||'"'
  17.